home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / elemlib.dia.ref < prev    next >
Text File  |  1999-09-16  |  1KB  |  50 lines
  1.  
  2. t=toeplitz(1:5,1:2:7);t1=[1 3 5 7;2 1 3 5;3 2 1 3;4 3 2 1;5 4 3 2];
  3.  
  4. if norm(t-t1)>10*%eps then bugmes();quit;end
  5.  
  6. t=toeplitz(1:5);t1=[1 2 3 4 5;2 1 2 3 4;3 2 1 2 3;4 3 2 1 2;5 4 3 2 1];
  7.  
  8. if norm(t-t1)>10*%eps then bugmes();quit;end
  9.  
  10. if toeplitz([])<>[] then bugmes();quit;end
  11.  
  12.  
  13.  s=poly(0,'s');
  14.  
  15. t=toeplitz([s s+1 s**2 1-s]);
  16.  
  17. t1=[s 1+s s*s 1-s;1+s s 1+s s*s;s*s 1+s s 1+s;1-s s*s 1+s s]
  18.  t1        =
  19.  
  20. !                        2               !
  21. !   s         1 + s     s         1 - s  !
  22. !                                        !
  23. !                                  2     !
  24. !   1 + s     s         1 + s     s      !
  25. !                                        !
  26. !    2                                   !
  27. !   s         1 + s     s         1 + s  !
  28. !                                        !
  29. !              2                         !
  30. !   1 - s     s         1 + s     s      !
  31.  
  32. if norm(coeff(t-t1))>10*%eps then bugmes();quit;end
  33.  
  34.  
  35. t=toeplitz(['1','2','3','4']);
  36.  
  37. t1=['1','2','3','4';'2','1','2','3';'3','2','1','2';'4','3','2','1']
  38.  t1        =
  39.  
  40. !1  2  3  4  !
  41. !            !
  42. !2  1  2  3  !
  43. !            !
  44. !3  2  1  2  !
  45. !            !
  46. !4  3  2  1  !
  47.  
  48. if t<>t1 then bugmes();quit;end
  49.  
  50.